home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
TOOLBOOK
/
IDC136.ZIP
/
SAMPLER.ZIP
/
COMM136.TBK
(
.txt
)
next >
Wrap
Asymetrix ToolBook File
|
1993-12-16
|
43KB
|
879 lines
IDC Common Handlers
Times New Roman
Times New Roman
Times New Roman
Times New Roman
iuSjoNqyA
Times New Roman
Version
C:\KEN\IDC\SYS133.TBK
C:\KEN\IDC\COMM136.TBK
rightbuttondoubleClick
B"filescripts"
rightbuttondoubleClick
rightbuttondoubleClick
filescripts
Version
Interactive Document Compiler Version 1.3601 Compiler
:PHYSSIZE
This is a System Book required by all books created with the IDC Compiler.
A copy must reside in the same directory as any such book.
It has no useful independent functionality.
sysSuspendMessages
buttonUp
buttonUp
Resolution
Screen resolution is 800 x 600
filescripts
~(".",n)
n & ".scr"
filescripts
buttonUp
buttonUp
filescripts
File Scripts
Screen resolution is 800 x 600816
-- Standard handlers
8compiled
-- Note: Messages
the actual
8must explicitly state
setupWindow
B"filescripts"
path(
& "compiler\utility.tbk"
"Version"
~("\",f)
filename f
~("\",f)
Vi+1
filestem f
tail(":",f)
~("\",f) > 0
\",f)
~(".",f)
O c,s
~(c,s)
setupBook
4visited,addressstack,usebookmarks
,pagewidth,pagedepth
4nsep,nend,anchorsshown,allowexit,screen
-- prevents warning message re
-- requires
xvia Quit
l-X etc.
"VGA"
sizePage
6.6 * 1440 -- are these ever used
4.8 * 1440
removeReaderMenus
actionsmenu
"&Help,Show &Links,&Notes,&Copy Text,&
anchorstyle
help
createReaderMenu "&Actions",
"Author"
c"IDC"
e"Change Exit Password"
has been
entry
InformationFile
scores
loadScores
Pages","&Contents,&Visited"
"$Shared$"
disable "
stringData("
Bookmarks","&List marked
,&Mark
,&Unmark
,&Remove All"
loadBookmarks
zwe need
ttwo lines every
notes
loadNotes
"$Title$"
setUpTitlePage
B"Start"
display
linkDLL "tbkwin.dll"
INT HorizontalDisplayRes()
VerticalDisplayRes()
2es()
unlinkDLL "
"Screen resolution
" && h && "x" && v
"Resolution"
h < 640
v <480
Report
,h,v,
sizeWindow
"SVGA"
-sized
h && v
D --
on larger
d,h,v,small
"The
" && h & "x" & v && "which
Error m
-- sizes
ensure that
no title bar
/colour still fills
12960,8640 -- 9.0
x 6.0
12960,9040 -- 9.0
x 6.0?
9792,7200 -- 6.8
x 5.0
setting up
(IDC error:" && p &&")"
-- full VGA
& no border
--
-4, -24, 644, 484
--
-4, -4, 644, 484
--
--
0, 0, 640, 480
-- centre
76, 56, 724, 544
--
-4,-4,804,604 -- Shows titlebar
-4,-24,804,604 -- No
s & "," & p &&")"
--
s,640,480)
s,800,600)
s & "," & p &&")"
h,v,wh,wv
(h-wh)/2-4
(v-wv)/2-4
setupPage
labelPage
preserve
4markCopyText,
-- sets up
"" &&
&& "needs" &&
& "." & CRLF & "
" &&
&"."
M $"
V $"
will enable following
needed
hiddenlinks
S"ShowLinks"
setanchors
"boxed,
-- Initialize
initialize
-- Send optional messages
" &&
&& "
Xbuttons
optionalbuttons
l --
p&& property
" && p && "
fields
optionalfields
l --
" && p && "
optionalgroups
l --
qstrip(
" && p && "
recordfields
optionalrecordfields
l --
" && p && "
-- Hide
" && enquote2(
) && "
" &&
) && "
-- Clear
cleared
" &&
) && "
--Preserve
-- assume
bexcept...
" &&
LabelPage
oneof(
" (*)"
B"OK"
,Edit,
informationFile
F-- already loaded
8) &
s & ".INF"
setData "
","notfound"
readLine(f)
~("=",l)
> 0 -- valid
sysErrorNumber
=565
F-- EOF
" && f && "seems
be invalid."
checkToolBookError
LF -- skip
calling books
:" &
B"OK"
-- assumes
-> 0
question
<> 0
-- Handlers
4idcData
-- Controlled
saveNotes
saveScores
saveBookmarks
sysSuspendMessages
"DOS"
"user.exe"
ExitWindows(DWORD,
FindWindow(
STRING)
ShowWindow(
2INT)
hWnd
90,"Program Manager")
~0,0)
-- This also removes
current
8was entered.
F--Can't
prompt on
TitleText(a)
Prompt "Returning
" &&
-- signal
WordCount(u) > 1
u -- just
wmethod
closing
supply a
exitPassword
changeExitPassword
newPassword
IDCpassword
"Old
>-- wrong
"New
"Repeat
>-- verification failed
showHotWords
sysHotWordsShown
showNotes
clearPrompt
MarkThisPage
) Then
UnmarkThisPage
itemnumber(
no longer
ListMarkedPages
pagelist
RemoveAll --
History -- obsolete
yp,identifier
"$$"
unique
textOverFlow
$" > 0
sysLockscreen
$" > 0
8) < 2
advance
$" > 0
/!$"
Hseveral backgrounds
"$I"
filespec(p)
+ Switching
" &&
"$$"
"$A"
(p) > 1
filearg(a)
b && a
Launching" &&
b && a
= 559
"no such
%" && b
substpath(p,3)
( p,s
~(":",f)
Vc+1
retreat
F-- Is
necessary
have
document.
cannot use
leave
one."
uplevel
F-- Is
should
xhappen
c-- Not a
h < l
sh --
firstpage
/"$Common$"
-- follows route
-- returns
"$$",l)
$ i,l)
\ i,l
l ( 0
incData n,i
value(n,
setvalue(n,
valueData n
~("=",
eq > 0
eq-1
Veq+1
&& "missing
data
n,d,v
(v) > 1
& v &
cj <
~("=",
eq > 0
eq-1
n & "=" & v
n & "=" & v
sample s,n,e
s > p
loadData f
&"trying
oepn
/" && f && "[" &
r& "]"
32768 --
whole
newFileName newtype
0*datapath")
c.(b)
& "." &
p & "\" & f
Hpopups
-- Are
,required
showPopup t
drawdirect
newFilename("BMK")
<> 0
-- Blanks
blanks o,d1,d2,t --
. recursively -- builds
-- o
processed
-- d1,d2
q.delimiters
-- t
remaining
yet unscanned
~(d1,t)
Vbb+1
~(d2,
[System]"
o+bb && bl
bb+bl+2
(o+tb-1,d1,d2,
blanknumber
,charlocation
consists
pairs
numbers:
&& length
along
,*point result
<=c+s+1
-- Utilities
& s &
s &&
-- Traps
u+there exists no
called whenever a
T$x%?
leaveBook
enterPage
disable
enable
setupWindow
leavePage
setupPage
changeExitPassword
newPassword
Report
ShowLinks
LabelPage
setanchors
Notes
setupBook
Prompt
clearPrompt
setUpTitlePage
MarkThisPage
UnmarkThisPage
createReaderMenu
ListMarkedPages
RemoveAll
Visited
sizePage
History
removeReaderMenus
pagelist
Contents
informationFile
advance
retreat
uplevel
sizeWindow
follow
incData
Error
setData
enterBook
loadData
showPopup
checkToolBookError
loadBookmarks
saveBookmarks
initialize
Z4eS'
centre
substpath
oneof
qstrip
itemnumber
filestem
valueData
stringData
readLine
value
TitleText
setvalue
sample
newFileName
filespec
blanks
filename
blanknumber
enquote
filearg
enquote2
enterBook
setupWindow
filescripts
compiler\utility.tbk
Version
reader
compiled
filename
filestem
setupBook
gsizePage
setupWindow
removeReaderMenus
&Help,Show &Links,&Notes,&Copy Text,&Quit
anchorstyle
italic,underline,bold
createReaderMenu
&Actions
Author
createReaderMenu
&Actions
Change Exit Password
InformationFile
scores
loadScores
createReaderMenu
&Pages
&Contents,&Visited
Contents
$Shared$
x%disable
Contents
bookmarks
stringData
createReaderMenu
&Bookmarks
&List marked pages,&Mark this page,&Unmark this page,&Remove All
QBloadBookmarks
notes
loadNotes
$Title$
setUpTitlePage
buttonUp
Start
actionsmenu
anchorsshown
allowexit
screen
compiled
pagewidth
pagedepth
visited
addressstack
usebookmarks
setupWindow
tbkwin.dll
HorizontalDisplayRes
VerticalDisplayRes
HorizontalDisplayRes
VerticalDisplayRes
tbkwin.dll
Screen resolution is
Resolution
#Report
sizeWindow
sizeWindow
sizeWindow
screen
display
Report
The screen is
which is too small for a VGA-sized display.
Error
small
sizePage
Error
in setting up page (IDC error:
sizeWindow
Error
in setting up window (IDC error:
centre
sizeToPage
centre
sizeToPage
Error
in setting up window (IDC error:
centre
enterPage
setupPage
ItlabelPage
compiled
leavePage
preserve
setupPage
screen
Error
needs
Screen is
gsizePage
sizeWindow
gsizePage
sizeWindow
$Pages$
$Contents$
$Help$
x%disable
CopyText
x%disable
Notes
hiddenlinks
enable
ShowLinks
anchorstyle
invert
setanchors
anchorstyle
boxed,invert
x%disable
ShowLinks
initialize
setup
to this book
optionalbuttons
of this page
optionalfields
of this page
optionalgroups
qstrip
of this page
optionalrecordfields
qstrip
of this page
hidden
enquote2
of this background
shown
enquote2
of this background
cleared
clear text of field
enquote
of this background
preserve
hidden
enquote2
markCopyText
screen
anchorsshown
qstrip
LabelPage
Label
oneof
Label
bookmarks
setUpTitlePage
Error
createReaderMenu
removeReaderMenus
File,Edit,Text,Page,Help
informationFile
stringData
filestem
45setData
notfound
45setData
readLine
45setData
readLine
Error
seems to be invalid.
0checkToolBookError
Error
Error:
Error
Error
addressstack
checkToolBookError
Error
leaveBook
addressstack
disable
enable
idcData
idcData
idcData
notes
saveNotes
scores
saveScores
vOsaveBookmarks
stringData
user.exe
ExitWindows
FindWindow
ShowWindow
Program Mana